home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / SUBDEMOS.txt < prev    next >
Text File  |  1996-12-24  |  2KB  |  116 lines
  1.  
  2. {--------------------------}
  3. PROGRAM SUBDEMO;      {Kopf}
  4. VAR                    {von}
  5.  G: INTEGER;       {Level 0}
  6.  F: INTEGER;
  7. {--------------------------}
  8.  
  9. PROCEDURE OHNEPAR;
  10. BEGIN
  11.  G := G + 10; {G geaendert}
  12.  WRITELN (G)
  13. END;
  14.  
  15. PROCEDURE WERTPAR (L: INTEGER);
  16. BEGIN
  17.  L := L + 10; {G unveraendert}
  18.  WRITELN (L)
  19. END;
  20.  
  21. PROCEDURE VARPAR (VAR L: INTEGER);
  22. BEGIN
  23.  L := L + 10; {G geaendert}
  24.  WRITELN (L)
  25. END;
  26.  
  27. PROCEDURE STRICH; {geschlossen}
  28. VAR
  29.  I: INTEGER;
  30. BEGIN
  31.  FOR I := 1 TO 10 DO WRITE ('-');
  32.  WRITELN
  33. END;
  34.  
  35. PROCEDURE LOCAL (L: INTEGER);
  36. VAR
  37.  A: ARRAY [1..10] OF INTEGER;
  38.  I: INTEGER;
  39. BEGIN
  40.  FOR I := 1 TO 10 DO
  41.  BEGIN A[I] := L; WRITE (L, ' ') END;
  42.  WRITELN
  43. END;
  44. {-----------------------------------}
  45. FUNCTION FOHNE: INTEGER;
  46. BEGIN
  47.  FOHNE := 2;
  48.  WRITELN (2) {Nicht mit FOHNE!} 
  49. END;
  50.  
  51. FUNCTION FMIT (L: INTEGER):INTEGER;
  52. BEGIN
  53.  FMIT := L * L;
  54.  WRITELN (L * L) {Nicht mit FMIT!}
  55. END;
  56.  
  57. {-------------------------}
  58. PROCEDURE LEVEL1; {Kopf}
  59. VAR               {von}
  60.  L1: INTEGER;     {Level 1}
  61. {-------------------------}
  62. PROCEDURE LEVEL2; {Kopf}
  63. VAR               {von}
  64.  L2: INTEGER;     {Level 2}
  65. {-------------------------}
  66. BEGIN    {Main von Level 2}
  67.  STRICH;
  68.  WRITELN ('Level ', G);
  69.  WRITELN ('Level ', L1);
  70.  L2 := 2;
  71.  WRITELN ('Level ', L2)
  72. END;
  73. {------------------------}
  74. BEGIN   {Main von Level 1}
  75.  STRICH;
  76.  WRITELN ('Level ', G);
  77.  L1 := 1;
  78.  WRITELN ('Level ', L1);
  79.  LEVEL2
  80. END;
  81. {-----------------------}
  82.  
  83. BEGIN   {Main von Level 0}
  84.  
  85. STRICH;
  86. G := 1; OHNEPAR;      {11}
  87. WRITELN (G);          {11}
  88.  
  89. STRICH;
  90. G := 1; WERTPAR (G);  {11}
  91. WRITELN (G);          {1}
  92. G := 1; WERTPAR (2);  {12} 
  93. WRITELN (G);          {1}
  94.  
  95. STRICH;
  96. G := 3; VARPAR (G);   {13}
  97. WRITELN (G);          {13}
  98.  
  99. STRICH;
  100. G := 1; LOCAL (G);    {1,1,1...}
  101. WRITELN (G);          {1}
  102.  
  103. STRICH;
  104. F := FOHNE;           {2}
  105. WRITELN (F);          {2}
  106.  
  107. STRICH; G := 2;
  108. F := FMIT (G);        {4}
  109. WRITELN (G);          {2}
  110.  
  111. STRICH; G := 0;
  112. WRITELN ('Level ', G);
  113. LEVEL1;   
  114.  
  115. END.
  116.